From 23295497462fd6aa61bc7e458309263d5fd1a3c8 Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Tue, 15 Jun 2010 22:13:34 +0200 Subject: [PATCH] * auth-source.el (auth-source-pick): If choice does not contain a questioned keyword, set the check to t. --- lisp/gnus/ChangeLog | 5 +++++ lisp/gnus/auth-source.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 6f3ea2579d4..9c47394a480 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -1,3 +1,8 @@ +2010-06-15 Michael Albinus + + * auth-source.el (auth-source-pick): If choice does not contain a + questioned keyword, set the check to t. + 2010-06-12 Romain Francoise * gnus-util.el (gnus-date-get-time): Move up before first use. diff --git a/lisp/gnus/auth-source.el b/lisp/gnus/auth-source.el index 89b2ef3d11d..e43f09e5ed1 100644 --- a/lisp/gnus/auth-source.el +++ b/lisp/gnus/auth-source.el @@ -229,7 +229,8 @@ matched as a regex." ;; Check keywords. (dolist (k keys match) (let* ((v (plist-get spec k)) - (choicev (plist-get choice k))) + (choicev (if (plist-member choice k) + (plist-get choice k) t))) (setq match (and match (or -- 2.30.2